home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / SelectAuthor.zprx < prev    next >
Text File  |  1996-08-07  |  2KB  |  75 lines
  1. /*
  2.    $VER: SelectAuthor.zprx (29.7.96) Copyright (c) Nils Görs.
  3.  
  4.  
  5.    Funktionsbeschreibung:
  6.  
  7.     Mit diesem Skript können Sie nach Absendern innerhalb eines Brettes
  8.     suchen lassen. Nutzen Sie ein Ausrufezeichen (!) als erstes Zeichen
  9.     dann wird das  komplette  Brett durchsucht, andernfalls wird ab der
  10.     aktuellen Position abwärts gesucht.
  11.  
  12.  
  13.    Installation:
  14.  
  15.     Kopieren sie dieses Skript in  das  Rexx-Verzeichnis  von  ZP  und
  16.     fügen  sie  danach  der  Datei  'fkeys.zp'  auf Wunsch den Eintrag
  17.     "F1:SYS:Rexxc/RX ZPOINT:Rexx/SelectAuthor.zprx %s" hinzu.
  18.     Alternativ können auch folgende Zeilen in die Datei usermenus.zp
  19.     eingefügt werden:
  20.  
  21.     *Autor suchen
  22.     Sys:Rexxc/RX ZPoint:Rexx/SelectAuthor.zprx %s
  23.  
  24.     TIP:
  25.     Wenn Sie das  S-Bit des  Skripts setzten, dann benötigen Sie nicht
  26.     SYS:Rexxc/RX um das Skript zu starten.
  27.     
  28.  
  29.    Autor dieses Skripts:
  30.  
  31.        Nils Görs              Tel. : +49 (0)202 78xxxx
  32.        Kaiserstr. 97a         EMail: N.Goers@Art-Line.de
  33.        42329 Wuppertal          oder über das ZP-Support-Brett.
  34.  
  35.    Verwenden Sie bitte nach Möglichkeit elektronische Post!
  36. */
  37.  
  38. OPTIONS RESULTS
  39.  
  40. /* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
  41. PARSE ARG zpPort
  42. IF zpPort == "" THEN
  43.    zpPort = "ZPoint"
  44. ADDRESS VALUE zpPort
  45.  
  46. WHICHLEVEL /* von wo wurde das Skript gestartet ? */
  47. IF RESULT ~= "BOARD" THEN DO
  48.    REQUESTNOTIFY "Bitte begeben Sie sich in ein Brett!"
  49.    EXIT
  50. END
  51.  
  52.  
  53. RequestString 'PROMPT "Bitte den _Namen eingeben" DEFAULT "!**"'
  54. Author = result
  55. IF Author = "" THEN EXIT
  56.  
  57. IF INDEX(Author,"!") ~= 1 THEN DO
  58.  SELECTMESSAGE 'NAME' Author
  59.   IF result == 0 THEN requestnotify "Keine Nachricht von" Author "gefunden!"
  60.  EXIT
  61. END
  62.  
  63. Author=DELSTR(Author,1,1)
  64.  
  65. 'GUILOCK text="Bitte etwas Geduld..."'
  66. MESSAGEINFO POSITION
  67. MessPos = result
  68. JUMPTOMESSAGE 1
  69.  SELECTMESSAGE 'NAME' Author
  70.   Messages=Result
  71. JUMPTOMESSAGE MessPos
  72. GUILOCK OFF
  73.   IF Messages == 0 THEN requestnotify "Keine Nachricht von" Author "gefunden!"
  74. /*EOS*/
  75.